home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / shared.dir / 00210_Script_210 < prev    next >
Text File  |  1994-11-11  |  2KB  |  80 lines
  1. on nanpa
  2.   puppetSprite 48, true
  3.   set the castNum of sprite 48 = 205
  4.   set the locH of sprite 48 = 170
  5.   set the locV of sprite 48 = 390
  6.   updateStage
  7. end 
  8.  
  9. on suceed
  10.   global switchYesNo,totalHpoint,stepNo,movieName,movieNo
  11.   puppetSprite 48, true
  12.   set the castNum of sprite 48 = 206
  13.   set the locH of sprite 48 = 170
  14.   set the locV of sprite 48 = 390
  15.   updateStage
  16.   delay 180
  17.   sound stop 1
  18.   puppetSprite 48, False
  19.   put "H" into movieName
  20.   put string(random(3)) into movieNo
  21.  
  22.   set the directToStage of cast "H0"&movieNo to 1
  23.   set the controller of cast "H0"&movieNo to 1
  24.   play frame "FUCK"&movieNo
  25. end 
  26.  
  27.  
  28. on failed
  29.   global switchYesNo,totalHpoint,stepNo
  30.   puppetSprite 48, true
  31.   set the castNum of sprite 48 = 207
  32.   set the locH of sprite 48 = 170
  33.   set the locV of sprite 48 = 390
  34.   updateStage
  35.   set the text of cast "Comment" to "H.point  -10"
  36.   put 0 into stepNo
  37.   put totalHpoint - 10 into totalHpoint
  38.   put totalHpoint into field "Hpoint"
  39.   delay 300
  40.   set the visible of sprite 44 to true
  41.   go to "map"
  42.   
  43. end 
  44.  
  45.  
  46. on shuryo
  47.   global switchYesNo,totalHpoint,stepNo
  48.   puppetSprite 48, true
  49.   set the castNum of sprite 48 = 208
  50.   set the locH of sprite 48 = 170
  51.   set the locV of sprite 48 = 390
  52.   updateStage
  53. end 
  54.  
  55. on Goodbye
  56.   global switchYesNo,totalHpoint,stepNo
  57.   puppetSprite 48, true
  58.   set the castNum of sprite 48 = 209
  59.   set the locH of sprite 48 = 170
  60.   set the locV of sprite 48 = 390
  61.   updateStage
  62. end 
  63.  
  64. on playQTMovie
  65.   global movieName,movieNo
  66.   sound stop 1
  67.   set the directToStage of cast movieName&"0"&movieNo to 1
  68.   set the controller of cast movieName&"0"&movieNo to 1
  69.   go to frame movieName&movieNo
  70. end
  71.  
  72.  
  73. on quitQTMovie
  74.   global movieName,movieNo
  75.   set the directToStage of cast movieName&"0"&movieNo to 0
  76.   set the controller of cast movieName&"0"&movieNo to 0
  77.   go to 70
  78.   go to 1
  79. end
  80.